home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / ddsgen.arc / DDSCPF.CLP < prev    next >
Encoding:
Text File  |  1991-12-04  |  8.1 KB  |  103 lines
  1. /*------------------------------------------------------------------*/          
  2. /*  PROGRAM NAME: DDS01CPF                                          */          
  3. /*  PURPOSE     : MAINLINE CLP FOR PHYSICAL FILE DDS GENERATION.    */          
  4. /*  TYPE        : CL PROGRAM                                        */          
  5. /*                                                                  */          
  6. /*  AUTHOR      : TERRENCE W. MOYER                                 */          
  7. /*                55 KEPPEL AVE                                     */          
  8. /*                WEST LAWN, PA. 19609                              */          
  9. /*                                                                  */          
  10. /*  DATE        : NOVEMBER 3, 1986                                  */          
  11. /*                                                                  */          
  12. /*  *LDA USAGE  : THE FOLLOWING POSITIONS OF THE *LDA ARE RESERVED  */          
  13. /*                BY THE DDS GENERATOR SYSTEM FOR THE FOLLOWING     */          
  14. /*                PURPOSE.                                          */          
  15. /*    1 - 100  ....................INPUT  FILE DATA                 */          
  16. /*  101 - 200  ....................SOURCE FILE DATA                 */          
  17. /*  201 - 300  ....................MISCELLANEOUS SYSTEM DATA        */          
  18. /*                                                                  */          
  19. /*    1 -  10  &INFIL              INPUT FILE NAME                  */          
  20. /*   11 -  20  &INLIB              INPUT FILE LIBRARY               */
  21. /*   21 -  26  %SST(&WHCRTD 2 6)   FILE CREATE DATE  (YYMMDD)       */          
  22. /*   27 -  32  &PHFCTM             FILE CREATE TIME  (HHMMSS)       */          
  23. /*   33 -  33  &WHFTYP             FILE TYPE - P,L,D (PHY/LGL/DEV)  */          
  24. /*   51 - 100  &PHTXT              FILE LEVEL TEXT                  */          
  25. /*  101 - 110  &SRCFIL             SOURCE FILE NAME                 */          
  26. /*  111 - 120  &SRCLIB             SOURCE FILE LIBRARY              */          
  27. /*  121 - 130  &SRCFIL             SOURCE FILE MEMBER               */          
  28. /*  201 - 206                      CURRENT SOURCE SEQUENCE NUMBER   */          
  29. /*  207 - 212                      DDS SOURCE DATE   (YYMMDD)       */          
  30. /*------------------------------------------------------------------*/          
  31.  PGM         PARM(&INFIL &INLIB &SRCFIL &SRCLIB &SRCMBR)                        
  32.              DCL VAR(&INFIL)      TYPE(*CHAR) LEN(10)                           
  33.              DCL VAR(&INLIB)      TYPE(*CHAR) LEN(10)                           
  34.              DCL VAR(&SRCFIL)     TYPE(*CHAR) LEN(10)                           
  35.              DCL VAR(&SRCLIB)     TYPE(*CHAR) LEN(10)                           
  36.              DCL VAR(&SRCMBR)     TYPE(*CHAR) LEN(10)                           
  37.              DCL VAR(&ND)         TYPE(*CHAR) LEN(1) VALUE(X'27')               
  38.              DCL VAR(&MSGID)      TYPE(*CHAR) LEN(7)                            
  39.              DCL VAR(&MSGDTA)     TYPE(*CHAR) LEN(80)                           
  41.              MONMSG     MSGID(CPF0000) EXEC(GOTO RCVMSGS)                       
  42.                                                                                 
  43. /* APPLY OVERRIDES: DSPFD/DSPFFD FILES.               */                        
  44. /* CALL RPG DDS GENERATOR.  DELETE OVERRIDES AND END. */                        
  45.              OVRDBF     FILE(QAFDPHY)  TOFILE(DSPFDPHY.QTEMP)                   
  46.              DSPFD      FILE(&INFIL.&INLIB) TYPE(*ATR) +                        
  47.                         OUTPUT(*NONE) FILEATR(*PHY) +                           
  48.                         OUTFILE(DSPFDPHY.QTEMP)                                 
  49.              OVRDBF     FILE(QAFDACCP) TOFILE(DSPFDACP.QTEMP)                   
  50.              DSPFD      FILE(&INFIL.&INLIB) TYPE(*ACCPTH) +                     
  51.                         OUTPUT(*NONE) OUTFILE(DSPFDACP.QTEMP)                   
  52.              OVRDBF     FILE(QADSPFFD) TOFILE(DSPFFD.QTEMP)                     
  53.              DSPFFD     FILE(&INFIL.&INLIB) OUTPUT(*NONE) +                     
  54.                         OUTFILE(DSPFFD.QTEMP)                                   
  55.                                                                                 
  56.              OVRDBF     FILE(&SRCFIL)  TOFILE(&SRCFIL.&SRCLIB) +                
  57.                         MBR(&SRCMBR)   SHARE(*YES)                              
  58.              OVRDBF     FILE(SRCFIL)   TOFILE(&SRCFIL.&SRCLIB) +                
  59.                         MBR(&SRCMBR)                                            
  60.              OPNDBF     FILE(&SRCFIL.&SRCLIB) OPTION(*OUT) +
  61.                           MBR(&SRCMBR) SEQONLY(*YES)                            
  62.                                                                                 
  63.              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Creating +         
  64.                           File Level DDS') TOPGMQ(*EXT) +                       
  65.                           MSGTYPE(*STATUS)                                      
  66.              CALL       DDS01RPF01                                              
  67.              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Creating +         
  68.                           Record Level DDS') TOPGMQ(*EXT) +                     
  69.                           MSGTYPE(*STATUS)                                      
  70.              CALL       DDS01RPF02                                              
  71.              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Creating +         
  72.                           Field Level DDS') TOPGMQ(*EXT) +                      
  73.                           MSGTYPE(*STATUS)                                      
  74.              CALL       DDS01RPF03                                              
  75.              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Creating +         
  76.                           Key Field Level DDS') TOPGMQ(*EXT) +                  
  77.                           MSGTYPE(*STATUS)                                      
  78.              CALL       DDS01RPF04                                              
  79.                                                                                 
  80.              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&ND) +
  81.                           TOPGMQ(*EXT) MSGTYPE(*STATUS)                         
  82.                                                                                 
  83.              CLOF       OPNID(&SRCFIL)                                          
  84.              GOTO       ENDPGM                                                  
  85.                                                                                 
  86. /*     ***RECEIVE ERROR MESSAGES AND SEND TO CALLING PROGRAM***               */
  87.  RCVMSGS:    RMVMSG     PGMQ(*PRV)  CLEAR(*ALL)                                 
  88.  RCV1:       RCVMSG     MSGDTA(&MSGDTA) MSGID(&MSGID)                           
  89.              IF         COND(&MSGID = ' ') THEN(DO)                             
  90.              SNDPGMMSG  MSGID(CPF9999) MSGF(QCPFMSG) TOPGMQ(*PRV) +             
  91.                         MSGTYPE(*ESCAPE)                                        
  92.                         GOTO  ENDPGM                                            
  93.                         ENDDO                                                   
  94.              ELSE       DO                                                      
  95.              SNDPGMMSG  MSGID(&MSGID) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +           
  96.                         TOPGMQ(*PRV) MSGTYPE(*COMP)                             
  97.                         GOTO   RCV1                                             
  98.              ENDDO                                                              
  99.                                                                                 
  100.  ENDPGM:     DLTOVR     *ALL
  101.              ENDPGM
  102. 
  103.